home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 11
/
64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64
/
spriteb. v3 demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
4KB
|
143 lines
10 rem ********************************
20 rem * *
30 rem * spritebasic v3.0 demo *
40 rem * --------------------- *
50 rem * written by ph. herzog *
60 rem * *
70 rem ********************************
80 :
90 _x:_\:__"........":rem reset +hyperscreen on
100 _r,13:rem g-zeiger auf block 13
110 _g"........*****..........."
120 _g"........*****..........."
130 _g".........***............"
140 _g".........***............"
150 _g"..........*............."
160 _g"..........*............."
170 _g"....*************......."
180 _g".....***********........"
190 _g"......*********........."
200 _g".......*******.........."
210 _g".......*******.........."
220 _g".......*******.........."
230 _g".......*******.........."
240 _g".......*******.........."
250 _g".......*******.........."
260 _g".......*******.........."
270 _g".......*******.........."
280 _g"........*****..........."
290 _g"........*****..........."
300 _g".........***............"
310 _g"..........*............."
320 :
330 rem g-zeiger springt automatisch auf 14
340 :
350 _t"............"
360 _t"............"
370 _t"............"
380 _t"............"
390 _t"............"
400 _t".....aa....."
410 _t".....aa....."
420 _t"....bbbb...."
430 _t"..bbbbbbbb.."
440 _t"caaacccaaacc"
450 _t"aaacccaaaccc"
460 _t"..bbbbbbbb.."
470 _t"....bbbb...."
480 _t".....bb....."
490 _t"............"
500 _t"............"
510 _t"............"
520 _t"............"
530 _t"............"
540 _t"............"
550 _t" "
560 :
570 _t"............"
580 _t"............"
590 _t"............"
600 _t"............"
610 _t"............"
620 _t"..bbbaabbb.."
630 _t".bbaaaaaabb."
640 _t"bbaaaaaaaabb"
650 _t"baaaaaaaaaab"
660 _t"bbaaaaaaaabb"
670 _t"bbbbbaabbbbb"
680 _t".bb.baab.bb."
690 _t"....baabb..."
700 _t"...bbaab...."
710 _t"....baab...."
720 _t"....baabb..."
730 _t"...bbaab...."
740 _t"....baab...."
750 _t"....baabb..."
760 _t"...bbaab...."
770 _t"....baab...."
780 :
790 rem kollisionsdemo
800 :
810 _u,1,0:_c,0,0:_c,1,12:_m,1:rem farben + multicolor setzen
820 _ex,1:rem expand
830 _i,0,13:_i,1,14:rem spritepointer auf block setzen
840 _p,1,0,200:_p,0,170,0:rem sprites setzen
850 _n,0:_n,1:rem einschalten
860 _w,1,1,0,0,0
870 print"[147]joystick port 2 zur steuerung der bombe benutzen"
880 print" f1 [146] to exit"
890 _w,0,usr(16+2*1+0),2,0,0:rem joystick im w-befehl
900 ifpeek(203)=4then1000
910 ifusr(1)=0then890:rem kollision?
920 _w,0,1,2,3,0
930 print"[147]";:forx=0to63
940 poke646,x:print"boom!
950 [130]:[153]"load":[139][183](1)[178]1[167]930
960 [137]870
970 :
980 [143] _a/_j und positionsabnbfragedemo
990 :
1000 _a:[143] interrupt aus
1010 [153]"load_a/_j und positionsabfrage-demo"
1020 _p,0,13,13
1030 _p,1,0,0:_@
1040 _w,0,1,1,0,1:_w,1,1,1,0,1
1050 _j:[143] interrupt wieder an
1060 [153]"druecke eine taste um die rakete fallenzulassen!"
1070 [151]198,0:[146]198,1:[151]198,0:_w,0,0,2,0,0
1080 [139][183](257)[179]229[167]1080
1090 _i,0,15:_m,0:_c,0,2:_w,0,0,0,0,0
1100 _p,0,[183](256),207:_ey,0
1110 [129]x[178]0[164]10:_n,0:[129]y[178]0[164]50:[130]:_f,0:[129]y[178]0[164]50:[130]y,x
1120 [139][183](258)[179]400[167]1120
1130 _i,0,13:_h,0:_c,0,0:_n,0
1140 _a:_r,13:_k:_r,14:_k:_p,0,13,0:_p,1,0,13:_w,0,1,1,0,1:_j:_dy,0
1150 [153]"jetzt steht alles kopf!"
1160 [153]"weiter mit space"
1170 [146]203,60
1180 [153]"load_z-demo"
1190 _f,1:_p,0,50,230:_r,13
1200 _w,0,0,255,0,1
1210 [139][183](257)[177]180[167]1210
1220 _w,0,0,255,0,0
1230 [139][183](257)[177]80[167]1230
1240 _z:_w,0,1,0,0,0
1250 [139][183](256)[179]300[167]1250
1260 _z:_w,0,0,1,0,0
1270 [139][183](257)[179]200[167]1270
1280 _z:_w,0,255,0,0,0
1290 [139][183](256)[179]500[167]1290
1300 :
1310 [143] sprungdemo
1320 :
1330 _x
1340 _n,0
1350 _i,0,13
1360 [153]"loadmit _l,13,255 machen wir einen kasten"
1370 _l,13,255:_c,0,1:_i,0,13:_p,0,24,58
1380 [153]"mit _w,0,20,0,20,0 lassen wir ihn springen"
1390 _w,0,20,0,20,0
1400 [153]"druecke spacewait fuer ende":[151]198,0
1410 [161]a$:[139]a$[179][177]" "[137]1410
1420 _x